knitr::opts_chunk$set(echo = FALSE)
library(haven)
library(tidyverse)
library(magrittr)
library(ggplot2)
#___________________________________________________________________________________________#
# Read in dta files
#___________________________________________________________________________________________#
datadir <- file.path(getwd(), "Data", "HIES_raw_19May20")
outdir <- file.path(getwd(), "Outputs")
source("R_scripts/cleaning_functions.R")
source("R_scripts/plotting_functions.R")
## # A tibble: 4 x 1
## event_roster__id
## <chr>
## 1 Coral bleaching event
## 2 Cyclone
## 3 Harmful algal bloom
## 4 Tsunami
Event: Cyclone
Event: Harmful algal bloom
Event: Tsunami
## # A tibble: 17 x 1
## fish_asset_roster__id
## <chr>
## 1 Fibreglass boats
## 2 Outboard Motors
## 3 Fishing Nets (gillnet)
## 4 Spearguns
## 5 Fishing Lines
## 6 Active Fish Traps
## 7 Underwater flashlights
## 8 Wood canoes
## 9 Eskies/portable coolers
## 10 SCUBA diving equipment
## 11 Freezers (electric or propane)
## 12 Ice machines
## 13 Fishing Nets (purse)
## 14 Drag Nets
## 15 Harpoons/Spears
## 16 Other Fishing Equipment (note)
## 17 FAD (Fish Aggregating Device)
Asset: Fibreglass boats
Asset: Outboard Motors
Asset: Fishing Nets (gillnet)
Asset: Spearguns
Asset: Fishing Lines
Asset: Active Fish Traps
Asset: Underwater flashlights
Asset: Wood canoes
Asset: Eskies/portable coolers
Asset: SCUBA diving equipment
Asset: Freezers (electric or propane)
Asset: Ice machines
Asset: Fishing Nets (purse)
Asset: Drag Nets
Asset: Harpoons/Spears
Asset: FAD (Fish Aggregating Device)
Asset: Other Fishing Equipment (note)